home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 February
/
EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso
/
www
/
amitrix
/
trans.lha
/
translate
/
Install-Translate
< prev
next >
Wrap
Text File
|
1998-04-17
|
4KB
|
167 lines
; $VER: Install AwTranslate 0.1 (14.4.98)
; Based on installer scripts by WHMP
; Description: Installer script for AwTranslate AWeb ARexx script
(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set awv 3)
(set awr 1)
(set #needInst43 "You must use Installer version 43 or greater. Use the Installer program from your AWeb-II disk.")
(if (< (/ @installer-version 65536) 43)
(abort #needInst43)
)
(set #installing "Installing ")
; offer to back up a file or drawer
(procedure bumprev #bumpfile #bumptxt
(if (exists #bumpfile)
(
(set bump 1)
(while (exists (cat #bumpfile "_old" bump) ) (set bump (+ bump 1)) )
(if
(askbool
(default 1)
(prompt (cat "\n\n\nBackup " #bumpfile " as "
#bumpfile "_old" bump " ?\n\n\n "
#bumptxt ) )
(help
(cat "\n\n\n\"" #bumpfile "\" is about to be over written.\n"
"\nYou are being given the chance to back it up."
" If you are unsure select yes... just in case ;-D ."
)
)
)
; (rename #bumpfile (cat #bumpfile "_old" bump))
( (set bdest (cat #bumpfile "_old" bump))
(copyfiles
(source #bumpfile)
(dest bdest)
(all)
)
)
)
)
)
)
;add a line to a settings file
(procedure addpref #preffile #preftext
(foreach "ENVARC:AWeb3" "~(program|browser|gui|network|window|settings)"
(
(if (= @each-type 2)
(run (cat "echo >>ENVARC:AWeb3/" @each-name "/" #preffile " \"" #preftext "\"") )
)
)
)
(run (cat "echo >>ENVARC:AWeb3/" #preffile " \"" #preftext "\"") )
)
(set #no-aweb-ii
(cat "You must have completed the AWeb-II 3.1 installation before "
"you can install the %s plug-in. No AWeb3: assign has been found."
)
)
(if (not (exists "AWeb3:" (noreq)))
(abort (#no-aweb-ii "Utilities"))
)
(set @default-dest "AWeb3:")
(bumprev "envarc:aweb3"
(cat "Your previously SAVED AWeb 3.1 configuration"
" is in this directory.")
) ; backup any previous AWeb3 prefs
(set menbut
(askoptions
(prompt
"\n\nInstall translate as\n"
)
(help "\nThe GUI buttons appear on the main AWeb window"
"\nThe ARexx menu is attached to the main AWeb window\n"
"The Frame popup menu is used to translate individual frames\n"
"GUI buttons are only available with \n"
"settings-GUI-options-show user buttons on\n")
(choices "A GUI Button"
"An ARexx Menu Entry"
"A Frame Popup Menu Item"
"A Keyboard Shortcut of \"<ALT>t\"" )
(default 5)
)
)
(if(bitand 1 menbut)
(addpref "gui" "UBUT TranslateRUN AWeb3:plugins/translate.awebrx ask")
)
(if(bitand 2 menbut)
(addpref "gui" "AREX 9;AWeb3:plugins/translate.awebrx ask;Translate")
)
(if(bitand 4 menbut)
(addpref "gui" "PUPF 0TranslateRUN AWeb3:Plugins/Translate.awebrx u %u ask")
)
(if(bitand 8 menbut)
(addpref "gui" "UKEY 0354 run AWeb3:Plugins/Translate.awebrx ask")
)
(copyfiles
(source "Translate.awebrx")
(dest (tackon @default-dest "plugins"))
(prompt #installing "Translate")
)
(copyfiles
(source "Translate.html")
(dest (tackon @default-dest "plugins"))
(prompt #installing "Translate")
(infos)
)
(copyfiles
(source "awnpipe-handler")
(dest "l:")
(prompt #installing "AWNPipe-handler")
)
(if (exists "sys:storage/dosdrivers" (noreq))
; best place
(copyfiles
(dest "sys:storage/dosdrivers")
(source "awnpipe")
(prompt #installing "AWebNews Pipe:")
(infos)
)
; any place
(copyfiles
(dest "Devs:dosdrivers")
(source "awnpipe")
(prompt #installing "AWebNews Pipe:")
(infos)
)
)
(if (= @user-level 2)
( bumprev "env:aweb3"
(cat "Your previous ACTIVE AWeb 3.1 configuration"
" is in this directory.")
) ;backup any active prefs
)
(delete "env:aweb3/#?" (all))
(copyfiles
(source "ENVARC:AWeb3")
(dest "ENV:AWeb3")
(all)
)
(complete 100)
(set @default-dest "AWeb3:plugins")
(exit "\n\n" @app-name
" is now installed.\n\n"
"If this is an update instalation be sure to check your GUI "
" settings for duplicate entries."
"\n\n You may need to reboot your system before the new version of the "
"AWNPipe: becomes active. It is used primarily for the clipboard function."
)